home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
ccdl150l.zip
/
COMPLIB
/
68K
/
68MULS.SRC
< prev
next >
Wrap
Text File
|
1996-12-14
|
292b
|
26 lines
section code
XDEF __muls
xref llumul
__muls:
move.l D3,-(A7)
move.l (12,A7),D1
move.l D1,D3
bpl.b n1
neg.l d1
n1:
move.l (8,A7),D0
eor.l D0,D3
or.l d0,d0
bpl.b n2
neg.l d0
n2:
bsr llumul
btst.l #31,D3
beq.b ret
neg.l d0
ret:
move.l (A7)+,D3
rts